// Occurs when the user presses a key while an object has the focus.
Procedure OnComKeyDown Short   llKeyCode Short   llShift
	Forward Send OnComKeyDown llKeyCode llShift
	Send ComRemoveSelection
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/1/2017"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 128
		Set ComSelBackColor of hoChart to (RGB(240,240,240))
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "8/2/2017" "8/6/2017" Nothing Nothing
		Variant h
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "8/3/2017" "8/9/2017" Nothing Nothing
		Set ComSelectItem of hoItems h to True
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "8/4/2017" "8/13/2017" "" Nothing
		Set ComSelectItem of hoItems h to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "8/5/2017" "8/16/2017" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant back
	Move 65536 to back
	Variant fore
	Move 16777215 to fore
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4biaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5CjmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKaxbbuaaXLhGCYBgIA==" to Nothing
	Send Destroy to hoAppearance2
	Set ComHeaderAppearance to OLEBump
	Set ComBackColor to back
	Set ComBackColorHeader to back
	Set ComBackColorLevelHeader to back
	Set ComBackColorSortBar to back
	Set ComBackColorSortBarCaption to back
	Set ComFilterBarBackColor to back
	Set ComFilterBarForeColor to fore
	Set ComForeColor to fore
	Set ComForeColorHeader to fore
	Set ComForeColorSortBar to fore
	Set ComSelBackColor to fore
	Set ComSelForeColor to back
	Set ComBackground OLEexHeaderFilterBarButton to |CI$1000000
	Set ComBackground OLEexSplitBar to |CI$2000000
	Set ComBackground OLEexCursorHoverColumn to -1
	Set ComBackground OLEexToolTipAppearance to |CI$3000000
	Set ComBackground OLEexToolTipBackColor to back
	Set ComBackground OLEexToolTipForeColor to fore
	Set ComBackground OLEexSelBackColorFilter to fore
	Set ComBackground OLEexSelForeColorFilter to back
	Set ComBackground OLEexBackColorFilter to back
	Set ComBackground OLEexForeColorFilter to fore
	Set ComBackground OLEexSortBarLinkColor to back
	Set ComBackground OLEexCSplitBar to |CI$2000000
	Set ComBackground OLEexHSplitBar to |CI$2000000
	Set ComBackground OLEexTreeLinesColor to fore
	Set ComBackground OLEexScrollSizeGrip to back
	Set ComDescription OLEexFilterBarExclude to "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComBackColor of hoChart to back
		Set ComBackColorLevelHeader of hoChart to back
		Set ComForeColor of hoChart to fore
		Set ComForeColorLevelHeader of hoChart to fore
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to False
	Get ComLoadXML "http://www.exontrol.net/testing.xml" to Nothing
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 22
	Send Destroy to hoStdFont
	Set ComHeaderHeight to 42
	Set ComDefaultItemHeight to 36
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant v
			Get ComDefaultItemHeight to v
		Set ComItemHeight of hoItems 0 to v
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant v1
			Get ComDefaultItemHeight to v1
		Set ComUnitWidth of hoChart to v1
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant v2
			Variant voChart2
			Get ComChart to voChart2
			Handle hoChart2
			Get Create (RefClass(cComChart)) to hoChart2
			Set pvComObject of hoChart2 to voChart2
				Get ComUnitScale of hoChart2 to v2
			Send Destroy to hoChart2
		Set ComUnitScale of hoChart1 to v2
	Send Destroy to hoChart1
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Variant voBars
		Get ComBars of hoChart3 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Variant voBar1
				Get ComItem of hoBar "Task" to voBar1
				Handle hoBar1
				Get Create (RefClass(cComBar)) to hoBar1
				Set pvComObject of hoBar1 to voBar1
					Set ComHeight of hoBar1 to 18
				Send Destroy to hoBar1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart3
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemBold of hoItems llItem to True
		Send ComAddBar of hoItems llItem (ComCellValue(hoItems,llItem,(ComGroupItem(hoItems,llItem)))) "12/2/2017" "12/2/2017" Nothing Nothing
		Send ComDefineSummaryBars of hoItems llItem "" -3 ""
	Send Destroy to hoItems
End_Procedure

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 llItem "Task" "12/4/2017" "12/10/2017" Nothing Nothing
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCQBQAWCQ1DAJIqjOAkEhiGCUQClYYZBjWG4dQLOEYTNC8WwHCIZBpEWgKChGKAlSANMjTZLkdR1ECmIhoSg4coKMoERBJco1BDdOQGAyEQShEC4fgmVwAP7aNoWVC1JynM6XaKmGbJAA6CZgQKGFh2LAdTzSf61cAtWpaUjmRZaYSAFDxpiCYpfQjdUB2JDVfTVP6LbawS4KZgOR5eRboETYeAFcSZGrNMKEXLLSyudKRRreWQaPpGCZTRSUdZxSrbBhvEqlbRNMhwSBEEigNIxToOU4jFgeCROQwQRK9BBoG0CQUEIdhAAyJJvjUeZdmmb5+C8HhiAeZJznoPQ+EgT4rlua4BjCfg+k8d5TkUCZ4w+fxfB+X5xn4fheGebZoH8X53koAR9CASAWAUfofjgJgKH+IJHnGcIDmER5iBEeZgmgVgLgGYYYGoFRTCGaIGAYRYiCiFgmgmYQEF4KIKmKSBRBqCxjAiRgvgwYxIiGQYNmOCJlDUOpeAQBCAg=" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -6 0 6 0" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/2/2017"
		Set ComPaneWidth of hoChart False to 342
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "S1" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "S2" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to |CI$2ff0000
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "C2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowSort of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComSingleSort to False
	Set ComAllowGroupBy to True
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEFlat
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"S1")) 1 to "SubItem A.1"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"S1")) 1 to "SubItem A.1"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"S2")) 1 to "SubItem B.1"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"S2")) 1 to "SubItem B.1"
	Send Destroy to hoItems2
	Set ComLayout to "MultipleSort = "C0:2""
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComAttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wHIMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCqOp6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZYnjUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -4 0 0 0" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$2000000
	Set ComSelForeColor to (RGB(0,0,1))
	Set ComFullRowSelect to OLEexColumnSel
	Set ComShowFocusRect to False
	Set ComDefaultItemHeight to 24
	Set ComHeaderHeight to 24
	Set ComDrawGridLines to OLEexVLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Cell 1")) 1 to "Cell 2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Cell 3")) 1 to "Cell 4"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComSelectPos of hoItems1 to 1
	Send Destroy to hoItems1
	Set ComSelectColumnIndex to 1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComAttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wHIMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCqOp6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZYnjUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (RGB(0,0,1))
	Set ComShowFocusRect to False
	Set ComDefaultItemHeight to 24
	Set ComHeaderHeight to 24
	Set ComDrawGridLines to OLEexVLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Cell 1")) 1 to "Cell 2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Cell 3")) 1 to "Cell 4"
		Set ComSelectPos of hoItems to 1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComAttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wHIMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCqOp6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZYnjUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackMode to OLEexTransparent
	Set ComShowFocusRect to False
	Set ComDefaultItemHeight to 24
	Set ComHeaderHeight to 24
	Set ComDrawGridLines to OLEexVLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Cell 1")) 1 to "Cell 2"
		Variant h
		Get ComAddItem of hoItems "Cell 2" to h
		Set ComCellValue of hoItems h 1 to "Cell 3"
		Set ComCellBackColor of hoItems h 1 to |CI$1000000
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Fired after a new column has been added.
Procedure OnComAddColumn Variant   llColumn
	Forward Send OnComAddColumn llColumn
	// Column.Def(17) = 1
End_Procedure

// Occurs when the filter was changed.
Procedure OnComFilterChange 
	Forward Send OnComFilterChange 
	Variant format
	Get ComFormatABC "`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`" (ComFilterBarPromptPattern(Self)) Nothing Nothing to format
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to format
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 1 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to format
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexVLines
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "Col 1" to Nothing
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Get ComAdd of hoColumns3 "Col 2" to Nothing
	Send Destroy to hoColumns3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"219 Smith")) 1 to "Ignacio 1234"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1666 County Road 309A")) 1 to "897 Manassa"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"38 Lone Pine")) 1 to "Durango 11"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"612 Jachim Street")) 1 to "Lamar 222"
	Send Destroy to hoItems
	Set ComFilterBarPromptPattern to "1"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Set ComFilterBarPromptType to (OLEexFilterPromptCaseSensitive + OLEexFilterPromptContainsAll)
	Send ComEndUpdate
End_Procedure

// Fired after a new column has been added.
Procedure OnComAddColumn Variant   llColumn
	Forward Send OnComAddColumn llColumn
	Move to Column
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDivider of hoItems llItem to -1
		Variant v
			Get ComBackColorSortBar to v
		Set ComItemBackColor of hoItems llItem to v
		Variant v1
			Get ComHeaderHeight to v1
		Set ComItemHeight of hoItems llItem to v1
		Set ComCellMerge of hoItems llItem 0 to "1,2,3,4,5,7,8,9,10,11,12"
		Set ComCellValue of hoItems llItem 13 to "count(current,rec,1)"
		Set ComCellValueFormat of hoItems llItem 13 to (OLEexTotalField + OLEexHTML)
		Set ComCellValue of hoItems llItem 0 to (ComCellCaption(hoItems,llItem,(ComGroupItem(hoItems,llItem))))
		Set ComFormatCell of hoItems llItem 0 to "`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`"
		Set ComCellValue of hoItems llItem 6 to "sum(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem 6 to (OLEexTotalField + OLEexHTML)
		Set ComCellForeColor of hoItems llItem 6 to (RGB(102,102,102))
	Send Destroy to hoItems
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 12
	Set ComColumnAutoResize to False
	Set ComScrollBySingleLine to True
	Set ComBackColorSortBar to (RGB(240,240,240))
	Set ComAutoDrag to OLEexAutoDragScroll
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Set ComHeaderHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Count" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComItem of hoColumns "Freight" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant v2
				Get ComBackColorSortBar to v2
			Set ComDef of hoColumn1 OLEexCellBackColor to v2
			Set ComDef of hoColumn1 OLEexHeaderBackColor to (ComDef(hoColumn1,OLEexCellBackColor))
			Set ComDef of hoColumn1 OLEexCellPaddingRight to 4
			Set ComDef of hoColumn1 OLEexCellPaddingLeft to 4
			Set ComHeaderBold of hoColumn1 to True
			Set ComAllowGroupBy of hoColumn1 to False
			Set ComFormatColumn of hoColumn1 to "value format ``"
			Set ComAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComItem of hoColumns 0 to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComAllowGroupBy of hoColumn2 to False
			Set ComDef of hoColumn2 OLEexCellValueFormat to 1
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComItem of hoColumns "ShipCountry" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComSortOrder of hoColumn3 to OLESortAscending
		Send Destroy to hoColumn3
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to False
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComLockedItemCount of hoItems1 OLEexBottom to 1
		Variant hL
		Get ComLockedItem of hoItems1 OLEexBottom 0 to hL
		Set ComItemHeight of hoItems1 hL to 24
		Set ComItemBold of hoItems1 hL to True
		Variant v3
			Get ComBackColorSortBar to v3
		Set ComItemBackColor of hoItems1 hL to v3
		Set ComCellValue of hoItems1 hL 6 to "sum(all,rec,dbl(%6))"
		Set ComCellValueFormat of hoItems1 hL 6 to (OLEexTotalField + OLEexHTML)
		Set ComCellHAlignment of hoItems1 hL 6 to OLERightAlignment
		Set ComFormatCell of hoItems1 hL 6 to "value format ``"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDividerLine of hoItems llItem to OLEEmptyLine
		Set ComFormatCell of hoItems llItem (ComGroupItem(hoItems,llItem)) to "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
		Set ComCellValue of hoItems llItem "Min" to "min(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Min" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Max" to "max(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Max" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Sum" to "sum(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Sum" to OLEexTotalField
		Set ComItemBackColor of hoItems llItem to (RGB(240,240,240))
	Send Destroy to hoItems
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasLines to OLEexNoLine
	Set ComDescription OLEexColumnsFloatBar to "Show/Hide"
	Set ComColumnsFloatBarSortOrder to OLESortAscending
	Set ComColumnsFloatBarVisible to OLEexColumnsFloatBarVisibleIncludeCheckColumns
	Set ComColumnAutoResize to False
	Set ComBackColorSortBar to (RGB(240,240,240))
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Min" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
			Set ComAllowDragging of hoColumn to False
		Send Destroy to hoColumn
		Variant var_Column
		Get ComAdd of hoColumns "Max" to var_Column
			Set ComVisible of hoColumns to False
			Set ComVisible of hoColumns to False
			Set ComAllowDragging of hoColumns to False
		Send Destroy to hoColumns
		Variant var_Column1
		Get ComAdd "Sum" to var_Column1
			Set ComVisible to False
			Set ComVisible to False
			Set ComAllowDragging to False
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 "Freight" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "currency(value)"
			Set ComDef of hoColumn1 OLEexCellBackColor to 12895487
			Set ComDef of hoColumn1 OLEexHeaderBackColor to (ComDef(hoColumn1,OLEexCellBackColor))
			Set ComHeaderBold of hoColumn1 to True
			Set ComAllowGroupBy of hoColumn1 to False
			Set ComAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComScrollBySingleLine to False
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComLockedItemCount of hoItems1 OLEexBottom to 2
		Variant hL
		Get ComLockedItem of hoItems1 OLEexBottom 0 to hL
		Set ComItemDivider of hoItems1 hL to 0
		Set ComItemHeight of hoItems1 hL to 3
		Set ComItemDividerLineAlignment of hoItems1 hL to OLEDividerTop
		Set ComItemDividerLine of hoItems1 hL to OLEDoubleLine
		Get ComLockedItem of hoItems1 OLEexBottom 1 to hL
		Set ComCellValue of hoItems1 hL 6 to "sum(all,rec,dbl(%6))"
		Set ComCellValueFormat of hoItems1 hL 6 to OLEexTotalField
		Set ComItemHeight of hoItems1 hL to 24
		Set ComItemBold of hoItems1 hL to True
	Send Destroy to hoItems1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComItem of hoColumns2 "EmployeeID" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComSortOrder of hoColumn2 to True
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDividerLine of hoItems llItem to OLEEmptyLine
		Set ComFormatCell of hoItems llItem (ComGroupItem(hoItems,llItem)) to "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
		Set ComCellValue of hoItems llItem "Min" to "min(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Min" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Max" to "max(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Max" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Sum" to "sum(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Sum" to OLEexTotalField
		Set ComItemBackColor of hoItems llItem to (RGB(240,240,240))
	Send Destroy to hoItems
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasLines to OLEexNoLine
	Set ComColumnAutoResize to False
	Set ComBackColorSortBar to (RGB(240,240,240))
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 1 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Min" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns1 "Max" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComVisible of hoColumn2 to False
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns1 "Sum" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComVisible of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn4
		Get ComItem of hoColumns2 "Freight" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComDef of hoColumn4 OLEexCellBackColor to 12895487
			Set ComDef of hoColumn4 OLEexHeaderBackColor to (ComDef(hoColumn4,OLEexCellBackColor))
			Set ComHeaderBold of hoColumn4 to True
			Set ComAllowGroupBy of hoColumn4 to False
		Send Destroy to hoColumn4
	Send Destroy to hoColumns2
	Set ComScrollBySingleLine to False
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComLockedItemCount of hoItems1 OLEexBottom to 1
		Variant hL
		Get ComLockedItem of hoItems1 OLEexBottom 0 to hL
		Set ComItemDivider of hoItems1 hL to 0
		Set ComItemHeight of hoItems1 hL to 24
		Set ComItemDividerLineAlignment of hoItems1 hL to OLEDividerTop
		Set ComItemDividerLine of hoItems1 hL to OLEDoubleLine
		Set ComCellValue of hoItems1 hL 0 to "sum(all,rec,dbl(%6))"
		Set ComCellValueFormat of hoItems1 hL 0 to (OLEexTotalField + OLEexHTML)
		Set ComCellHAlignment of hoItems1 hL 0 to OLERightAlignment
		Set ComFormatCell of hoItems1 hL 0 to "'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` `"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to False
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "City" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComDescription OLEexColumnsFloatBar to "Show/Hide"
	Set ComColumnsFloatBarSortOrder to OLESortAscending
	Set ComColumnsFloatBarVisible to OLEexColumnsFloatBarVisibleIncludeCheckColumns
	Send ComEndUpdate
End_Procedure

// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged 
	Forward Send OnComLayoutChanged 
	Send ComRefresh
End_Procedure

// Fired when the control sorts a column.
Procedure OnComSort 
	Forward Send OnComSort 
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasLines to OLEexNoLine
	Set ComColumnAutoResize to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Position" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "1 apos ''"
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "(%C13 mod 4) = 0" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Send ComEndUpdate
End_Procedure

// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged 
	Forward Send OnComLayoutChanged 
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasLines to OLEexNoLine
	Set ComColumnAutoResize to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 1 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Position" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "(%C13 mod 2) != 0" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDivider of hoItems llItem to -1
		Set ComEnableItem of hoItems llItem to False
		Variant vColIndex
			Get ComTreeColumnIndex to vColIndex
		Set ComCellValueFormat of hoItems llItem vColIndex to OLEexHTML
		Variant vColIndex1
			Get ComTreeColumnIndex to vColIndex1
		Set ComFormatCell of hoItems llItem vColIndex1 to "%1"
		Set ComCellValueFormat of hoItems llItem "Freight" to (OLEexTotalField + OLEexHTML)
		Set ComCellValue of hoItems llItem "Freight" to "sum(current,dir,%6)"
		Set ComFormatCell of hoItems llItem "Freight" to "`<b>` + currency(value)"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackMode to OLEexTransparent
	Set ComBackColorSortBar to (RGB(240,240,240))
	Set ComColumnAutoResize to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSortBarVisible to True
	Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
	Set ComAllowGroupBy to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 1 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 "ShipVia" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComAllowGroupBy to True
	Set ComSortBarVisible to True
	Set ComBackColorSortBar to (ComBackColor(Self))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 5 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 6 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "currency(value)"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexTop to 1
		Variant h
		Get ComLockedItem of hoItems OLEexTop 0 to h
		Set ComItemBackColor of hoItems h to (RGB(240,240,240))
		Set ComCellBackColor of hoItems h 6 to (RGB(190,190,190))
		Set ComCellValue of hoItems h 6 to "sum(all,rec,%6)"
		Set ComCellValueFormat of hoItems h 6 to OLEexTotalField
	Send Destroy to hoItems
	Send ComRefresh
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSortOnClick to OLEexNoSort
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 13
	Set ComHeaderVisible to False
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Quantity" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Value" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLESpinType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Items" to h
		Set ComCellValue of hoItems h 2 to "sum(current,dir,dbl(%1)*dbl(%2))"
		Set ComCellValueFormat of hoItems h 2 to OLEexTotalField
		Set ComFormatCell of hoItems h 2 to "`Total: `+ value"
		Set ComCellHAlignment of hoItems h 2 to OLERightAlignment
		Set ComCellBold of hoItems h 2 to True
		Set ComCellEditorVisible of hoItems h 2 to False
		Set ComCellEditorVisible of hoItems h 1 to False
		Variant h1
		Get ComInsertItem of hoItems h "Item 1" to h1
		Set ComCellValue of hoItems h1 1 to 10
		Set ComCellValue of hoItems h1 2 to 3
		Get ComInsertItem of hoItems h "Item 2" to h1
		Set ComCellValue of hoItems h1 1 to 20
		Set ComCellValue of hoItems h1 2 to 4
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComFormatCell of hoItems llItem (ComGroupItem(hoItems,llItem)) to "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
		Set ComCellValue of hoItems llItem "Min" to "min(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Min" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Max" to "max(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Max" to OLEexTotalField
		Set ComCellValue of hoItems llItem "Sum" to "sum(current,all,dbl(%6))"
		Set ComCellValueFormat of hoItems llItem "Sum" to OLEexTotalField
	Send Destroy to hoItems
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasLines to OLEexNoLine
	Set ComColumnAutoResize to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Set ComSingleSort to False
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 1 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Min" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns1 "Max" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComVisible of hoColumn2 to False
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns1 "Sum" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComVisible of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSortOnClick to OLEexNoSort
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 13
	Set ComHeaderVisible to False
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Quantity" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Sum" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Min" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComVisible of hoColumn2 to False
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns "Max" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComVisible of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Items" to h
		Set ComCellMerge of hoItems h 0 to 1
		Set ComFormatCell of hoItems h 0 to "`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`"
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Set ComCellValue of hoItems h 2 to "sum(current,dir,dbl(%1))"
		Set ComCellValueFormat of hoItems h 2 to OLEexTotalField
		Set ComCellValue of hoItems h 3 to "min(current,dir,dbl(%1))"
		Set ComCellValueFormat of hoItems h 3 to OLEexTotalField
		Set ComCellValue of hoItems h 4 to "max(current,dir,dbl(%1))"
		Set ComCellValueFormat of hoItems h 4 to OLEexTotalField
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 1")) 1 to 10
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 2")) 1 to 20
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 3")) 1 to 30
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSortOnClick to OLEexNoSort
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 13
	Set ComHeaderVisible to False
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Quantity" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Items" to h
		Set ComCellValue of hoItems h 1 to "sum(current,dir,dbl(%1))"
		Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
		Set ComFormatCell of hoItems h 1 to "`Total: `+ value"
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 1")) 1 to 10
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 2")) 1 to 20
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Item 3")) 1 to 30
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "A" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "B" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLESpinType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "A+B" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 10 to h
		Set ComCellValue of hoItems h 1 to 20
		Set ComCellValueFormat of hoItems h 2 to OLEexComputedField
		Set ComCellValue of hoItems h 2 to "currency(dbl(%0)+dbl(%1))"
		Showln "CellCaption returns " (ComCellCaption(hoItems,h,2))
		Showln "CellValue returns " (ComCellValue(hoItems,h,2))
		Showln "ComputeValue returns " (ComComputeValue(hoItems,"dbl(%0)+dbl(%1)",h,0,(ComCellValueFormat(hoItems,h,2))))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "A" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "B" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 10 to h
		Set ComCellValue of hoItems h 1 to 20
		Showln "A+B is " (ComComputeValue(hoItems,"dbl(%0)+dbl(%1)",h,0,2))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "<b>bold</b>" to h
		Showln (ComComputeValue(hoItems,(ComCellValue(hoItems,h,0)),h,0,1))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM   llItem
	Forward Send OnComAddGroupItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDividerLine of hoItems llItem to OLEEmptyLine
		Send ComAddBar of hoItems llItem "Summary" "12/2/2017" "12/2/2017" Nothing Nothing
		Send ComDefineSummaryBars of hoItems llItem "" -3 ""
	Send Destroy to hoItems
End_Procedure

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 llItem "Task" "12/4/2017" "12/10/2017" Nothing Nothing
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABHEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziaQJiYLBIaRgEUTRXASCQxDBKQBSeKkRRtDaOYDnGQYDiCIouQLEIxDKItBSJCKURJkAZZHjeToSR5PMb0dKdAw5I6raShEaaIiqJIXP7Fc7QSA0EgTBIFajgOpQAb+bptW7FVDULTMQS5FCZKasOA7FgOZ4DWjUVpwTZ1Q4LC65bjuaraawKbYbXrFYJQSA8EwjNjDcLuKqcKpvDJsSJIFKxOB2KYtBLMLbzLR5apjLZ0QLSOKRDoMEgRDYGdKjLScGrGao8ABtcBlAZJRjoOo5DJgeCQapUQhNczGQzQSIiBOJZAFSQwRHcJhGh2BZvngMIeA8H4TksA5ylgZBeg8X4GmGX4nniPazneQ5VnKdp9H8P4vD+X57nMRofmgBZ4FgIAoBWdoBGAGAeAgfxfjgNZ1DqWxEA0ASAgA==" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/2/2017"
		Set ComPaneWidth of hoChart False to 256
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Summary" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
				Set ComDef of hoBar OLEexBarCaption to "<%=%513%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
				Set ComDef of hoBar OLEexBarCaptionHOffset to 8
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComItem of hoBars1 "Task" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComPattern of hoBar1 to OLEexPatternBox
				Set ComColor of hoBar1 to (RGB(0,0,0))
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
		Get ComAdd of hoColumns "C2" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "1 pos ``"
			Set ComAllowGroupBy of hoColumn to False
			Set ComPosition of hoColumn to 0
			Set ComWidth of hoColumn to 48
			Set ComAllowSizing of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComSortBarVisible to True
	Set ComAllowGroupBy to True
	Set ComBackColorSortBar to (ComBackColor(Self))
	Set ComHeaderAppearance to OLEEtched
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "SubItem A.1"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "SubItem A.2"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "SubItem A.3"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item A")) 1 to "SubItem A.4"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item B")) 1 to "SubItem B.1"
		Set ComCellValue of hoItems2 (ComAddItem(hoItems2,"Item B")) 1 to "SubItem B.2"
	Send Destroy to hoItems2
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortAscending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 12
	Send Destroy to hoStdFont
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 21
				Set ComPattern of hoBar to OLEexPatternDiagCross
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComPaneWidth of hoChart False to 128
		Set ComUnitWidth of hoChart to 24
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "to do"
		Get ComAddItem of hoItems "bgcolor" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<bgcolor=FFFFFF> to do </bgcolor>"
		Get ComAddItem of hoItems "fgcolor" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor=FFFFFF> to do </fgcolor>"
		Get ComAddItem of hoItems "sha" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<sha FFFFFF;2;2> to do </sha>"
		Get ComAddItem of hoItems "out" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<out 000000><fgcolor=FFFFFF>to do</fgcolor></out></font>"
		Get ComAddItem of hoItems "gra" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor FFFFFF><gra 000000;1;1>to do</fgcolor>"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Fired when the control prepares the object's tooltip.
Procedure OnComToolTip HITEM   llItem Integer   llColIndex Boolean   llVisible Integer   llX Integer   llY Integer   llCX Integer   llCY
	Forward Send OnComToolTip llItem llColIndex llVisible llX llY llCX llCY
	Showln "ToolTip" llItem llColIndex llVisible llX llY llCX llCY
	Get ComFormatABC "value + 8" llX Nothing Nothing to X
	Get ComFormatABC "value - 8" llY Nothing Nothing to Y
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComDef of hoBar OLEexBarToolTip to "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Tasks A")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Tasks B")) "Task" "1/3/2001" "1/8/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Fired when right mouse button is clicked
Procedure OnComRClick 
	Forward Send OnComRClick 
	Showln "Edit Mode: " (ComEditing(Self))
	Handle hoExContextMenu
	Get Create (RefClass(cComExContextMenu)) to hoExContextMenu // Import the 'ExContextMenu 1.0 Type Library' library
		Variant voItems
		Get ComItems of hoExContextMenu to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComToString of hoItems to "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)"
		Send Destroy to hoItems
		Showln (ComSelect(hoExContextMenu,Nothing,Nothing,Nothing))
	Send Destroy to hoExContextMenu
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderAppearance to OLEFlat
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComOption of hoEditor OLEexEditAllowContextMenu to False
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "Item 1" to Nothing
		Get ComAddItem of hoItems1 "Item 2" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwSAsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbDMRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZwXg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGqDBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQFi6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIKAT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QBHAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBaBZhggZgagaYRoEwShWA6NZZAMQBAICA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexHeaderFilterBarButton to |CI$1000000
	Set ComBackground OLEexHeaderFilterBarActive to |CI$2000000
	Set ComBackground OLEexCursorHoverColumn to -1
	Set ComHeaderHeight to 28
	Set ComBackColorHeader to (RGB(255,255,255))
	Set ComDrawGridLines to OLEexRowLines
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "C2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComFilter of hoColumn1 to "Item 2"
			Set ComFilterType of hoColumn1 to OLEexFilter
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "C3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDisplayFilterButton of hoColumn2 to True
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Set ComCellValue of hoItems h 1 to "Item 2"
		Set ComCellValue of hoItems h 2 to "Item 3"
		Get ComAddItem of hoItems "Item 4" to h
		Set ComCellValue of hoItems h 1 to "Item 5"
		Set ComCellValue of hoItems h 2 to "Item 6"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant size
	Move 2 to size
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQcCQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBKcRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJrnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGYGoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQpFIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==" to Nothing
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhYIgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyVYghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDxTiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FYFoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAhaFKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWRYOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==" to Nothing
		Variant vSkin
			Get ComFormatABC "`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)" size Nothing Nothing to vSkin
		Get ComAdd of hoAppearance 1 vSkin to Nothing
		Variant vSkin1
			Get ComFormatABC "`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)" size Nothing Nothing to vSkin1
		Get ComAdd of hoAppearance 2 vSkin1 to Nothing
	Send Destroy to hoAppearance
	Set ComLinesAtRoot to OLEexGroupLinesAtRoot
	Set ComHasButtons to OLEexCustom
	Set ComHasButtonsCustom False to 16777216
	Set ComHasButtonsCustom True to 33554432
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=" to Nothing
		Get ComAdd of hoAppearance 1 "CP:2 -8 -4 2 4" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexHeaderFilterBarButton to |CI$1fefefe
	Set ComBackground OLEexHeaderFilterBarActive to |CI$1010101
	Set ComBackground OLEexCursorHoverColumn to -1
	Set ComHeaderHeight to 28
	Set ComBackColorHeader to (RGB(255,255,255))
	Set ComDrawGridLines to OLEexRowLines
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "C2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComFilter of hoColumn1 to "Item 2"
			Set ComFilterType of hoColumn1 to OLEexFilter
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "C3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDisplayFilterButton of hoColumn2 to True
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Set ComCellValue of hoItems h 1 to "Item 2"
		Set ComCellValue of hoItems h 2 to "Item 3"
		Get ComAddItem of hoItems "Item 4" to h
		Set ComCellValue of hoItems h 1 to "Item 5"
		Set ComCellValue of hoItems h 2 to "Item 6"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick 
	Forward Send OnComClick 
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "new" to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Item" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Pos" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAllowSizing of hoColumn1 to False
			Set ComAllowSort of hoColumn1 to False
			Set ComWidth of hoColumn1 to 32
			Set ComFormatColumn of hoColumn1 to "1 apos ``"
			Set ComPosition of hoColumn1 to 0
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "Item A" to Nothing
		Get ComAddItem of hoItems1 "Item B" to Nothing
		Get ComAddItem of hoItems1 "Item C" to Nothing
	Send Destroy to hoItems1
	Set ComFilterBarCaption to "`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
	Send ComEndUpdate
End_Procedure

// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComDblClick llShift llX llY
	Variant var_ItemFromPoint
	Get ComItemFromPoint -1 -1 c hit to var_ItemFromPoint
	Set ComFocusColumnIndex to c
	Send ComEdit Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComHeaderAppearance to OLEEtched
	Set ComAutoEdit to False
	Set ComReadOnly to OLEexLocked
	Set ComAutoSearch to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Contains" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAutoSearch of hoColumn1 to OLEexContains
			Variant voEditor
			Get ComEditor of hoColumn1 to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,Nothing)) 1 to "Tom Hanks"
		Set ComCellValue of hoItems (ComAddItem(hoItems,Nothing)) 1 to "Leonardo DiCaprio"
		Set ComCellValue of hoItems (ComAddItem(hoItems,Nothing)) 1 to "Will Smith"
		Set ComCellValue of hoItems (ComAddItem(hoItems,Nothing)) 1 to "Tom Cruise"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComDefaultItemHeight to 22
	Set ComTreeColumnIndex to -1
	Set ComSelForeColor to (RGB(0,0,0))
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComBackground OLEexCursorHoverCellButton to |CI$1000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Buttons" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasButton to True
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComAlignment of hoColumn to OLECenterAlignment
			Set ComHeaderAlignment of hoColumn to OLECenterAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Button <b>1</b>" to Nothing
		Get ComAddItem of hoItems "Button <b>2</b>" to Nothing
		Get ComAddItem of hoItems "Button <b>3</b>" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 16
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComStartBlockUndoRedo of hoItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/23/2005" "6/27/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
		Send ComAddLink of hoItems "L1" (ComItemByIndex(hoItems,0)) "" (ComItemByIndex(hoItems,1)) ""
		Send ComEndBlockUndoRedo of hoItems
		Variant h
		Get ComItemByIndex of hoItems 1 to h
	Send Destroy to hoItems
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voNotes
		Get ComNotes of hoChart1 to voNotes
		Handle hoNotes
		Get Create (RefClass(cComNotes)) to hoNotes
		Set pvComObject of hoNotes to voNotes
			Variant voNote
			Get ComAdd of hoNotes "NoteD" h "6/26/2005" "CTRL+Z (undo), CTRL+Y (redo)" to voNote
			Handle hoNote
			Get Create (RefClass(cComNote)) to hoNote
			Set pvComObject of hoNote to voNote
				Set ComPartShadow of hoNote OLEexNoteEnd to False
				Set ComPartToolTip of hoNote OLEexNoteEnd to "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
				Set ComPartTransparency of hoNote OLEexNoteEnd to 25
				Set ComPartVOffset of hoNote OLEexNoteEnd to -2
				Set ComPartBackColor of hoNote OLEexNoteEnd to (RGB(255,255,0))
			Send Destroy to hoNote
		Send Destroy to hoNotes
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 16
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/23/2005" "7/1/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/27/2005" "7/4/2005" "" Nothing
		Send ComStartBlockUndoRedo of hoItems
		Send ComAddLink of hoItems "L1" (ComItemByIndex(hoItems,0)) "" (ComItemByIndex(hoItems,1)) ""
		Variant u
		Get ComStartUpdateLink of hoItems "L1" to u
		Set ComLink of hoItems "L1" OLEexLinkWidth to 2
		Set ComLink of hoItems "L1" OLEexLinkText to "<fgcolor FF0000>CTRL+Z (undo), CTRL+Y (redo)"
		Set ComLink of hoItems "L1" OLEexLinkToolTip to "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
		Set ComLink of hoItems "L1" OLEexLinkColor to 255
		Send ComEndUpdateLink of hoItems u
		Send ComEndBlockUndoRedo of hoItems
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 16
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/30/2005" "" Nothing
		Variant h
		Get ComAddItem of hoItems "Task 2" to h
		Send ComStartBlockUndoRedo of hoItems
		Send ComAddBar of hoItems h "Task" "6/27/2005" "7/4/2005" "" "CTRL+Z (undo), CTRL+Y (redo)"
		Variant u
		Get ComStartUpdateBar of hoItems h "" to u
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
		Set ComItemBar of hoItems h "" OLEexBarToolTip to "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
		Send ComEndUpdateBar of hoItems u
		Send ComEndBlockUndoRedo of hoItems
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComDblClick llShift llX llY
	Send ComEdit Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComHeaderAppearance to OLEEtched
	Set ComAutoEdit to False
	Set ComAutoSearch to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Contains" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAutoSearch of hoColumn to OLEexContains
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Tom Hanks" to Nothing
		Get ComAddItem of hoItems "Leonardo DiCaprio" to Nothing
		Get ComAddItem of hoItems "Will Smith" to Nothing
		Get ComAddItem of hoItems "Tom Cruise" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Multiple-Columns Tree DropDownListType" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 0 "KR|Korea, Republic of" Nothing
				Send ComAddItem of hoEditor 1 "MO|Macao" Nothing
				Send ComAddItem of hoEditor 2 "SA|Saudi Arabia" Nothing
				Send ComAddItem of hoEditor 3 "EG|Egypt" Nothing
				Send ComAddItem of hoEditor 4 "GB|United Kingdom" Nothing
				Send ComAddItem of hoEditor 5 "GT|Guatemala" Nothing
				Send ComAddItem of hoEditor 6 "SR|Suriname" Nothing
				Send ComAddItem of hoEditor 7 "BM|Bermuda" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "EG" to Nothing
		Get ComAddItem of hoItems "GB" to Nothing
		Get ComAddItem of hoItems "BM" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Multiple-Columns DropDownListType" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Set ComOption of hoEditor OLEexDropDownColumnCaption to "City¦Coordinates¦State"
				Send ComAddItem of hoEditor 0 "JV3|Jollyville¦3026N 09746W¦Texas" Nothing
				Send ComAddItem of hoEditor 1 "TMO|Altamont¦4021N 11017W¦Utah" Nothing
				Send ComAddItem of hoEditor 2 "IIM|Williamston¦4241N 08417W¦Michigan" Nothing
				Send ComAddItem of hoEditor 3 "IWN|Merrittstown¦3958N 07952W¦Pennsylvania" Nothing
				Send ComAddItem of hoEditor 4 "HOU|Houston¦2945N 09521W¦Texas" Nothing
				Send ComAddItem of hoEditor 5 "GSF|Gales Ferry¦4125N 07205W¦Connecticut" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "HOU" to Nothing
		Get ComAddItem of hoItems "IIM" to Nothing
		Get ComAddItem of hoItems "TMO" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Multiple-Columns Tree DropDownListType" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Set ComOption of hoEditor OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
				Set ComOption of hoEditor OLEexDropDownColumnWidth to "224¦¦¦96"
				Send ComAddItem of hoEditor 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
				Send ComAddItem of hoEditor 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
				Send ComInsertItem of hoEditor 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3 2
				Send ComInsertItem of hoEditor 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3 2
				Send ComInsertItem of hoEditor 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2 2
				Send ComInsertItem of hoEditor 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1 5
				Send ComInsertItem of hoEditor 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2 2
				Send ComInsertItem of hoEditor 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3 2
				Send ComInsertItem of hoEditor 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2 5
				Send ComExpandAll of hoEditor
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
		Get ComAddItem of hoItems 4 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Multiple-Columns DropDownListType" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
				Send ComAddItem of hoEditor 0 "Jollyville¦JV3¦3026N 09746W¦TX" Nothing
				Send ComAddItem of hoEditor 1 "Altamont¦TMO¦4021N 11017W¦UT" Nothing
				Send ComAddItem of hoEditor 2 "Williamston¦IIM¦4241N 08417W¦MI" Nothing
				Send ComAddItem of hoEditor 3 "Merrittstown¦IWN¦3958N 07952W¦PA" Nothing
				Send ComAddItem of hoEditor 4 "Houston¦HOU¦2945N 09521W¦TX" Nothing
				Send ComAddItem of hoEditor 5 "Gales Ferry¦GSF¦4125N 07205W¦CT" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComInsertItem of hoItems 0 "" 1 to Nothing
		Get ComInsertItem of hoItems 0 "" 2 to Nothing
		Get ComInsertItem of hoItems 0 "" 4 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderAppearance to OLEEtched
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComColumnAutoResize to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to False
		Set ComAllowLinkBars of hoChart to False
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Members" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 96
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Start" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 112
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 1
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "End" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComWidth of hoColumn2 to 112
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 2
			Set ComLevelKey of hoColumn2 to 1
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Variant hR1
		Get ComAddItem of hoItems "Team" to hR1
		Send ComAddBar of hoItems hR1 "Summary" "1/2/2008" "1/8/2008" "" Nothing
		Send ComAddBar of hoItems hR1 "" "1/13/2008" "1/13/2008" "R" Nothing
		Set ComItemBar of hoItems hR1 "R" OLEexBarTransparent to 100
		Send ComDefineSummaryBars of hoItems hR1 "" h1 "R"
		Variant h1
		Get ComInsertItem of hoItems hR1 "Member 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/7/2008" Nothing Nothing
		Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
		Get ComInsertItem of hoItems hR1 "Member 2" to h1
		Send ComAddBar of hoItems h1 "Task" "1/4/2008" "1/9/2008" Nothing Nothing
		Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
		Get ComInsertItem of hoItems hR1 "Member 3" to h1
		Send ComAddBar of hoItems h1 "Task" "1/5/2008" "1/10/2008" Nothing Nothing
		Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
		Set ComExpandItem of hoItems hR1 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "10/5/2020"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 96
		Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramRecLeafItems + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems)
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to OLEexRectangularCurve
				Set ComHistogramItems of hoBar to -4
				Set ComHistogramBorderSize of hoBar to 1
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "C" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComHistogramPattern of hoBar1 to OLEexRectangularCurve
				Set ComHistogramItems of hoBar1 to -4
				Set ComHistogramColor of hoBar1 to (RGB(255,0,0))
				Set ComHistogramBorderSize of hoBar1 to 2
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project A" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "10/7/2020" "10/14/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "10/10/2020" "10/17/2020" Nothing Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Project B" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "C" "10/13/2020" "10/20/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "C" "10/15/2020" "10/23/2020" Nothing Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemBar of hoItems llItem llKey OLEexBarEffort to (ComItemBar(hoItems,llItem,llKey,OLEexBarPercent))
		Set ComItemBar of hoItems llItem "C" OLEexBarEffort to 1
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEEtched
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "10/5/2020"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Set ComHistogramHeight of hoChart to 96
		Set ComHistogramVisible of hoChart to True
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task%Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to OLEexRectangularCurve
				Set ComHistogramItems of hoBar to -4
				Set ComHistogramBorderSize of hoBar to 1
				Set ComHistogramBorderColor of hoBar to (ComColor(hoBar))
				Set ComShortcut of hoBar to "P"
				Set ComDef of hoBar OLEexBarShowPercentCaption to True
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "C" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComHistogramPattern of hoBar1 to OLEexRectangularCurve
				Set ComHistogramColor of hoBar1 to (RGB(255,0,0))
				Set ComHistogramBorderSize of hoBar1 to 2
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "`Task ` + (1 index ``)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 Nothing to h
		Send ComAddBar of hoItems1 h "P" "10/7/2020" "10/14/2020" "P" Nothing
		Set ComItemBar of hoItems1 h "P" OLEexBarPercent to 0.5
		Send ComAddBar of hoItems1 h "C" "10/7/2020" "10/14/2020" "C" Nothing
		Set ComItemBar of hoItems1 h "C" OLEexBarTransparent to 100
		Send ComGroupBars of hoItems1 h "P" True h "C" True Nothing Nothing
		Send ComGroupBars of hoItems1 h "P" False h "C" False Nothing Nothing
		Get ComAddItem of hoItems1 Nothing to h
		Send ComAddBar of hoItems1 h "P" "10/10/2020" "10/17/2020" "P" Nothing
		Set ComItemBar of hoItems1 h "P" OLEexBarPercent to 0.75
		Send ComAddBar of hoItems1 h "C" "10/10/2020" "10/17/2020" "C" Nothing
		Set ComItemBar of hoItems1 h "C" OLEexBarTransparent to 100
		Send ComGroupBars of hoItems1 h "P" True h "C" True Nothing Nothing
		Send ComGroupBars of hoItems1 h "P" False h "C" False Nothing Nothing
		Get ComAddItem of hoItems1 Nothing to h
		Send ComAddBar of hoItems1 h "P" "10/13/2020" "10/20/2020" "P" Nothing
		Set ComItemBar of hoItems1 h "P" OLEexBarPercent to 0.25
		Send ComAddBar of hoItems1 h "C" "10/13/2020" "10/20/2020" "C" Nothing
		Set ComItemBar of hoItems1 h "C" OLEexBarTransparent to 100
		Send ComGroupBars of hoItems1 h "P" True h "C" True Nothing Nothing
		Send ComGroupBars of hoItems1 h "P" False h "C" False Nothing Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to OLEexFilterBarTop
	Set ComHeaderHeight to 24
	Set ComFilterBarHeight to (ComHeaderHeight(Self))
	Set ComHeaderAppearance to OLEFlat
	Set ComDrawGridLines to OLEexAllLines
	Set ComGridLineStyle to OLEexGridLinesGeometric
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexPattern
			Set ComFilter of hoColumn to "B*"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Index" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "1 index ``"
			Set ComPosition of hoColumn1 to 0
			Set ComWidth of hoColumn1 to 48
			Set ComAllowSizing of hoColumn1 to False
			Set ComSortType of hoColumn1 to OLESortNumeric
			Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "A.1" to Nothing
		Get ComAddItem of hoItems "A.2" to Nothing
		Get ComAddItem of hoItems "B.1" to Nothing
		Get ComAddItem of hoItems "B.2" to Nothing
		Get ComAddItem of hoItems "B.3" to Nothing
		Get ComAddItem of hoItems "C" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Deadline" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(0,128,0))
				Set ComStartShape of hoBar to OLEexShapeIconDown3
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Deadline" "1/2/2001" "1/2/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Procedure OnComOLEDragDrop Variant   llData Integer   llEffect Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComOLEDragDrop llData llEffect llButton llShift llX llY
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComExpandItem of hoItems i to True
	Send Destroy to hoItems
End_Procedure

// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant   llData Integer   llAllowedEffects
	Forward Send OnComOLEStartDrag llData llAllowedEffects
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	Move 1 to AllowedEffects
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJGjuKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexListOLEDropPosition to |CI$1000000
	Set ComBackground OLEexChartOLEDropPosition to (RGB(1,0,0))
	Set ComBackground OLEexDragDropBefore to (RGB(0,0,0))
	Set ComBackground OLEexDragDropAfter to (RGB(255,255,255))
	Set ComOLEDropMode to OLEexOLEDropManual
	Set ComAutoDrag to OLEexAutoDragPositionAnyOnRight
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComIndent to 16
	Set ComSelBackMode to OLEexTransparent
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Root" to h
		Get ComInsertItem of hoItems1 h "Child 1" to Nothing
		Get ComInsertItem of hoItems1 h "Child 2" to Nothing
		Set ComExpandItem of hoItems1 h to True
	Send Destroy to hoItems1
	Showln "You can:"
	Showln "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)"
	Showln "B) right-click to re-arrange the item position inside the same control"
	Showln "This sample shows how you can insert the data being dropped as a child of the item being hovered."
End_Procedure

// Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Procedure OnComOLEDragDrop Variant   llData Integer   llEffect Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComOLEDragDrop llData llEffect llButton llShift llX llY
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComExpandItem of hoItems i to True
	Send Destroy to hoItems
End_Procedure

// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant   llData Integer   llAllowedEffects
	Forward Send OnComOLEStartDrag llData llAllowedEffects
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	Move 1 to AllowedEffects
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexDragDropBefore to (RGB(0,0,0))
	Set ComBackground OLEexDragDropAfter to (RGB(255,255,255))
	Set ComOLEDropMode to OLEexOLEDropManual
	Set ComAutoDrag to OLEexAutoDragPositionAnyOnRight
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComIndent to 16
	Set ComSelBackMode to OLEexTransparent
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Root" to h
		Get ComInsertItem of hoItems1 h "Child 1" to Nothing
		Get ComInsertItem of hoItems1 h "Child 2" to Nothing
		Set ComExpandItem of hoItems1 h to True
	Send Destroy to hoItems1
	Showln "You can:"
	Showln "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)"
	Showln "B) right-click to re-arrange the item position inside the same control"
	Showln "This sample shows how you can insert the data being dropped as a child of the item being hovered."
End_Procedure

// Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Procedure OnComOLEDragDrop Variant   llData Integer   llEffect Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComOLEDragDrop llData llEffect llButton llShift llX llY
	// SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComExpandItem of hoItems i to True
	Send Destroy to hoItems
End_Procedure

// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant   llData Integer   llAllowedEffects
	Forward Send OnComOLEStartDrag llData llAllowedEffects
	// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	Move 1 to AllowedEffects
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComOLEDropMode to OLEexOLEDropManual
	Set ComAutoDrag to OLEexAutoDragPositionAnyOnRight
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComIndent to 16
	Set ComSelBackMode to OLEexTransparent
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Root" to h
		Get ComInsertItem of hoItems1 h "Child 1" to Nothing
		Get ComInsertItem of hoItems1 h "Child 2" to Nothing
		Set ComExpandItem of hoItems1 h to True
	Send Destroy to hoItems1
	Showln "You can:"
	Showln "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)"
	Showln "B) right-click to re-arrange the item position inside the same control"
	Showln "This sample shows how you can insert the data being dropped as a child of the item being hovered."
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Item" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComPosition of hoColumn to 0
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
			Set ComFormatColumn of hoColumn to "1 index ``"
			Set ComAllowSort of hoColumn to False
			Set ComAllowDragging of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderAppearance to OLEEtched
	Set ComBackground OLEexCursorHoverColumn to -1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Item" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComPosition of hoColumn to 0
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
			Set ComFormatColumn of hoColumn to "1 index ``"
			Set ComAllowSort of hoColumn to False
			Set ComAllowDragging of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Fired after a new item has been selected.
Procedure OnComSelectionChanged 
	Forward Send OnComSelectionChanged 
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Showln (ComNextVisibleItem(hoItems,(ComFocusItem(hoItems))))
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComAutoDrag to OLEexAutoDragPositionAny
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComInsertItem of hoItems1 (ComAddItem(hoItems1,"Item 1")) "Child 1" to Nothing
		Get ComAddItem of hoItems1 "Item 2" to Nothing
		Get ComAddItem of hoItems1 "Item 3" to Nothing
		Get ComInsertItem of hoItems1 (ComAddItem(hoItems1,"Item 4")) "Child 4" to Nothing
		Get ComAddItem of hoItems1 "Item 5" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM   llItem Integer   llColIndex
	Forward Send OnComCellStateChanged llItem llColIndex
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComSelBackMode to OLEexTransparent
	Set ComDefaultItemHeight to 22
	Set ComGridLineStyle to OLEexGridLinesSolid
	Set ComDrawGridLines to OLEexAllLines
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEEtched
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=" to Nothing
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABTcIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRiBMIxAKIZhzEiJYgGIZxYh8MQER5IEbyBDsBw5AaZZojGRJGigNIqSxLUhTRKUdQrG4AKQnGhpDgmJYnU5EcrSUKQcw/JaiKYpGZYXpqO5OTzUIyVHDdKgFGKNKwjKiKKp6FofDJcADUcKAYBKFoaLjgS5bXhSGpnV5bFoWdLTVwhBKAQEBA=" to Nothing
		Get ComAdd of hoAppearance 1 "CP:2 1 1 -1 -1" to Nothing
		Get ComAdd of hoAppearance 3 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%CS0 = 1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to |CI$3000000
			Set ComChartBackColor of hoConditionalFormat to (ComBackColor(hoConditionalFormat))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/1/2017"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternSolid
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComItem of hoBars1 "Summary" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComStartShape of hoBar1 to OLEexShapeIconEmpty
				Set ComEndShape of hoBar1 to OLEexShapeIconEmpty
				Set ComShape of hoBar1 to OLEexShapeSolidDown
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Variant v
			Get ComSelBackColor to v
		Set ComSelBackColor of hoChart to v
		Set ComSelBarColor of hoChart to (RGB(128,128,128))
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComNonworkingDaysPattern of hoChart to OLEexPatternSolid
		Set ComGridLineStyle of hoChart to (OLEexGridLinesBehind + OLEexGridLinesSolid)
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Variant hChild
		Get ComInsertItem of hoItems h "Task 1" to hChild
		Send ComAddBar of hoItems hChild "Task" "8/2/2017" "8/8/2017" Nothing Nothing
		Set ComSelectItem of hoItems hChild to True
		Get ComInsertItem of hoItems h "Task 2" to hChild
		Send ComAddBar of hoItems hChild "Task" "8/3/2017" "8/10/2017" Nothing Nothing
		Get ComInsertItem of hoItems h "Task 3" to hChild
		Send ComAddBar of hoItems hChild "Task" "8/4/2017" "8/12/2017" Nothing Nothing
		Set ComCellState of hoItems hChild 0 to 1
		Get ComInsertItem of hoItems h "Task 4" to hChild
		Send ComAddBar of hoItems hChild "Task" "8/5/2017" "8/14/2017" Nothing Nothing
		Get ComInsertItem of hoItems h "Task 5" to hChild
		Send ComAddBar of hoItems hChild "Task" "8/6/2017" "8/16/2017" Nothing Nothing
		Send ComAddBar of hoItems h "Summary" "8/1/2017" "8/1/2017" "sum" Nothing
		Send ComDefineSummaryBars of hoItems h "sum" -3 ""
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "ItemBackColor" to h
		Send ComAddBar of hoItems h "Progress" "8/4/2017" "8/14/2017" Nothing Nothing
		Set ComItemBackColor of hoItems h to |CI$18080ff
			Variant voChart1
			Get ComChart to voChart1
			Handle hoChart1
			Get Create (RefClass(cComChart)) to hoChart1
			Set pvComObject of hoChart1 to voChart1
				Set ComItemBackColor of hoChart1 h to |CI$18080ff
			Send Destroy to hoChart1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComBackground OLEexSplitBar to (RGB(190,190,190))
	Set ComBackColorLevelHeader to (ComBackColor(Self))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Set ComOverviewHeight of hoChart to 48
		Set ComOverviewVisible of hoChart to (OLEexOverviewSplitter + OLEexOverviewShowMargins + OLEexOverviewShowAllVisible)
		Set ComFirstVisibleDate of hoChart to "1/1/2020"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "TaskO" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "TaskO" "1/2/2020" "1/12/2020" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarOverviewColor to -1
		Send ComAddBar of hoItems h "TaskO" "12/2/2020" "12/12/2020" "K2" Nothing
		Set ComItemBar of hoItems h "K2" OLEexBarOverviewColor to -1
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComBackground OLEexSplitBar to (RGB(190,190,190))
	Set ComBackColorLevelHeader to (ComBackColor(Self))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Set ComOverviewHeight of hoChart to 48
		Set ComOverviewVisible of hoChart to (OLEexOverviewShowMargins + OLEexOverviewHideBars + OLEexOverviewShowOnlyVisible)
		Set ComFirstVisibleDate of hoChart to "1/1/2020"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "TaskO" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverviewColor of hoBar to -1
				Set ComColor of hoBar to (RGB(255,0,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "TaskO" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "TaskO" "12/2/2020" "12/12/2020" "K2" Nothing
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComBackground OLEexSplitBar to (RGB(190,190,190))
	Set ComBackColorLevelHeader to (ComBackColor(Self))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Set ComOverviewHeight of hoChart to 48
		Set ComOverviewVisible of hoChart to (OLEexOverviewSplitter + OLEexOverviewShowMargins + OLEexOverviewShowAllVisible)
		Set ComFirstVisibleDate of hoChart to "1/1/2020"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "TaskO" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverviewColor of hoBar to -1
				Set ComColor of hoBar to (RGB(255,0,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "TaskO" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "TaskO" "12/2/2020" "12/12/2020" "K2" Nothing
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2020" "1/12/2020" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "12/2/2020" "12/12/2020" "K2" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" "1/2/2001" "1/9/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure

// Occurs when the filter was changed.
Procedure OnComFilterChange 
	Forward Send OnComFilterChange 
	Variant v
		Variant vA
		Variant voItems1
		Get ComItems to voItems1
		Handle hoItems1
		Get Create (RefClass(cComItems)) to hoItems1
		Set pvComObject of hoItems1 to voItems1
			Get ComMatchItemCount of hoItems1 to vA
		Send Destroy to hoItems1
		Get ComFormatABC "value > 0 ? 18 : 0" vA Nothing Nothing to v
	Set ComIndent to v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComIndent to 18
	Set ComFilterInclude to OLEexMatchingItemsOnly
	Set ComDrawGridLines to OLEexVLines
	Set ComHeaderAppearance to OLEFlat
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 164
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilterList of hoColumn to OLEexShowCheckBox
			Set ComFilter of hoColumn to "C1"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Pos" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "1 rindex ``"
			Set ComPosition of hoColumn1 to 0
			Set ComAllowSizing of hoColumn1 to False
			Set ComAllowDragging of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant h
		Get ComAddItem of hoItems2 "R1" to h
		Variant h2
		Get ComInsertItem of hoItems2 h "S" to h2
		Get ComInsertItem of hoItems2 h2 "C1" to Nothing
		Get ComInsertItem of hoItems2 h2 "C2" to Nothing
		Get ComInsertItem of hoItems2 h "C1" to Nothing
		Get ComInsertItem of hoItems2 h "C2" to Nothing
		Set ComExpandItem of hoItems2 h to True
		Get ComAddItem of hoItems2 "R2" to h
		Get ComInsertItem of hoItems2 h "C1" to Nothing
		Get ComInsertItem of hoItems2 h "C2" to Nothing
	Send Destroy to hoItems2
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
		Set ComLabel of hoChart OLEexYear to "year"
		Set ComLabel of hoChart OLEexHalfYear to ""
		Set ComLabel of hoChart OLEexQuarterYear to ""
		Set ComLabel of hoChart OLEexMonth to "month"
		Set ComLabel of hoChart OLEexThirdMonth to ""
		Set ComLabel of hoChart OLEexWeek to "week"
		Set ComLabel of hoChart OLEexDay to "day"
		Set ComLabel of hoChart OLEexHour to "hour"
		Set ComLabel of hoChart OLEexMinute to ""
		Set ComLabel of hoChart OLEexSecond to ""
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComUnitWidth of hoChart to 32
		Set ComUnitScale of hoChart to OLEexDay
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Fired after a new column has been added.
Procedure OnComAddColumn Variant   llColumn
	Forward Send OnComAddColumn llColumn
	// Column.Def(52) = 4
	// Column.Def(53) = 4
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart True to 256
	Send Destroy to hoChart
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEFlat
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to "<b>C<off 4>1</b><br>left"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "C2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTMLCaption of hoColumn1 to "<c><b>C<off 4>2</b><br><c>center"
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "C3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComHTMLCaption of hoColumn2 to "<r><b>C<off 4>3</b><br><r>right"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComUnitWidth of hoChart to 15
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/28/2009"
		Send ComMarkTimeZone of hoChart "Top" "1/1/2010" "1/5/2010" 16711680 "1;;<fgcolor=FFFFFF>Top;1"
		Send ComMarkTimeZone of hoChart "Partial" "1/8/2010" "1/12/2010" 16711680 "50;;<fgcolor=FFFFFF>Partial;1"
		Send ComMarkTimeZone of hoChart "Default" "1/15/2010" "1/19/2010" 16711680 ";;<fgcolor=FFFFFF>Default;1"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Set ComHeaderHeight to 18
	Set ComHeaderSingleLine to False
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant v1
		Get ComHistogramValueFromPoint of hoChart -1 -1 to v1
		Variant v2
		Get ComHistogramValue of hoChart (ComDateFromPoint(hoChart,-1,-1)) Nothing Nothing to v2
		Variant vMin
		Get ComHistogramValue of hoChart "min" Nothing Nothing to vMin
		Variant vMax
		Get ComHistogramValue of hoChart "max" Nothing Nothing to vMax
	Send Destroy to hoChart
	Variant format
	Get ComFormatABC "`<b>ValueFromPoint</b>: ` + A + `<br>ValueFromDate: ` + B" v1 v2 Nothing to format
	Get ComFormatABC "A  + `<br>Min: ` + B + `<br>Max: ` + C" format vMin vMax to format
	Send ComShowToolTip format "16" "16"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstWeekDay of hoChart1 to OLEexMonday
		Set ComLevelCount of hoChart1 to 2
		Set ComPaneWidth of hoChart1 False to 40
		Set ComFirstVisibleDate of hoChart1 to "6/9/2005"
		Set ComHistogramVisible of hoChart1 to True
		Set ComHistogramView of hoChart1 to (OLEexHistogramGroupCumulative + OLEexHistogramAllItems)
		Set ComHistogramHeight of hoChart1 to 128
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
				Set ComHistogramType of hoBar to OLEexHistCumulative
				Set ComHistogramItems of hoBar to -6
				Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
				Set ComHistogramBorderSize of hoBar to 1
				Set ComHistogramBorderColor of hoBar to (RGB(0,0,1))
				Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexChangeColor
				Set ComHistogramCumulativeShowLegend of hoBar to -1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant v1
		Get ComHistogramValueFromPoint of hoChart -1 -1 to v1
		Variant v2
		Get ComHistogramValue of hoChart (ComDateFromPoint(hoChart,-1,-1)) Nothing Nothing to v2
		Variant vMin
		Get ComHistogramValue of hoChart "min" Nothing Nothing to vMin
		Variant vMax
		Get ComHistogramValue of hoChart "max" Nothing Nothing to vMax
	Send Destroy to hoChart
	Variant format
	Get ComFormatABC "`<b>ValueFromPoint</b>: ` + A + `<br>ValueFromDate: ` + B" v1 v2 Nothing to format
	Get ComFormatABC "A  + `<br>Min: ` + B + `<br>Max: ` + C" format vMin vMax to format
	Send ComShowToolTip format "16" "16"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstWeekDay of hoChart1 to OLEexMonday
		Set ComLevelCount of hoChart1 to 2
		Set ComPaneWidth of hoChart1 False to 40
		Set ComFirstVisibleDate of hoChart1 to "6/9/2005"
		Set ComHistogramVisible of hoChart1 to True
		Set ComHistogramView of hoChart1 to OLEexHistogramAllItems
		Set ComHistogramHeight of hoChart1 to 128
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
				Set ComHistogramType of hoBar to OLEexHistOverload
				Set ComHistogramItems of hoBar to -6
				Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
				Set ComHistogramBorderSize of hoBar to 1
				Set ComHistogramBorderColor of hoBar to (RGB(0,0,1))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComUnitScale of hoChart to OLEexDay
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideLabel of hoInsideZoomFormat to "<%hh%>"
			Set ComInsideUnit of hoInsideZoomFormat to OLEexHour
			Set ComInsideCount of hoInsideZoomFormat to 8
			Set ComGridLineStyle of hoInsideZoomFormat to OLEexGridLinesGeometric
		Send Destroy to hoInsideZoomFormat
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "1/4/2008" to Nothing
		Send Destroy to hoInsideZooms
		Set ComDrawGridLines of hoChart to OLEexVLines
		Set ComShowNonworkingDates of hoChart to False
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEEtched
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "10/5/2020"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Set ComHistogramHeight of hoChart to 96
		Set ComHistogramVisible of hoChart to True
		Set ComAllowInsideZoom of hoChart to True
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "10/7/2020" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComWidth of hoInsideZoom to 196
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComGridLineStyle of hoInsideZoomFormat to OLEexGridLinesSolid
		Send Destroy to hoInsideZoomFormat
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
				Set ComDef of hoBar OLEexBarCaption to "<%=%0%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
				Set ComDef of hoBar OLEexBarEffort to "(hour(value) > 5 and hour(value) < 18) ? 2 : 0"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComHistogramUnitScale of hoChart to OLEexHour
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "`Task ` + (1 index ``)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "Task" "10/7/2020" "10/12/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "Task" "10/8/2020" "10/13/2020" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEEtched
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "10/5/2020"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Set ComHistogramHeight of hoChart to 96
		Set ComHistogramVisible of hoChart to True
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "A" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,255))
				Set ComHistogramPattern of hoBar to OLEexPatternSolid
				Set ComHistogramItems of hoBar to -6
				Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexKeepOriginalColor
				Set ComDef of hoBar OLEexBarCaption to "<%=%0%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "A" "B" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(0,255,0))
				Set ComHistogramCumulativeOriginalColorBars of hoBar1 to OLEexKeepOriginalColor
				Set ComDef of hoBar1 OLEexBarCaption to "<%=%0%>"
				Set ComDef of hoBar1 OLEexBarHAlignCaption to 18
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Set ComHistogramView of hoChart to (OLEexHistogramGroupCumulative + OLEexHistogramAllItems)
		Set ComHistogramZOrder of hoChart to "A,B"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "`Task ` + (1 index ``)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "A" "10/7/2020" "10/12/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "A" "10/8/2020" "10/13/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "B" "10/9/2020" "10/14/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "B" "10/10/2020" "10/15/2020" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Set ComHeaderAppearance to OLEEtched
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "10/5/2020"
		Set ComPaneWidth of hoChart False to 128
		Set ComLevelCount of hoChart to 2
		Set ComHistogramHeight of hoChart to 96
		Set ComHistogramVisible of hoChart to True
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "A" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,255))
				Set ComHistogramPattern of hoBar to OLEexPatternSolid
				Set ComHistogramItems of hoBar to -6
				Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexKeepOriginalColor
				Set ComDef of hoBar OLEexBarCaption to "<%=%0%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "A" "B" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(0,255,0))
				Set ComHistogramCumulativeOriginalColorBars of hoBar1 to OLEexKeepOriginalColor
				Set ComDef of hoBar1 OLEexBarCaption to "<%=%0%>"
				Set ComDef of hoBar1 OLEexBarHAlignCaption to 18
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Set ComHistogramView of hoChart to (OLEexHistogramGroupCumulative + OLEexHistogramAllItems)
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "`Task ` + (1 index ``)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "A" "10/7/2020" "10/12/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "A" "10/8/2020" "10/13/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "B" "10/9/2020" "10/14/2020" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "B" "10/10/2020" "10/15/2020" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDrawGridLines to OLEexHLines
	Set ComGridLineStyle to OLEexGridLinesGeometric
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJXhaI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Position" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "((1 rindex ``) contains `.`) = 0"
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%C1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to |CI$1e0e0e0
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComAddItem of hoItems "Root 3" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Variant hChild
		Get ComInsertItem of hoItems h "<img>1</img> Task (left)" to hChild
		Get ComInsertItem of hoItems h "<c><img>2</img> Task (center)" to hChild
		Get ComInsertItem of hoItems h "<r>Task (right) <img>3</img>" to hChild
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Type" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Editor" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Integer" to h
		Set ComCellValue of hoItems h 1 to "12"
		Variant voEditor
		Get ComCellEditor of hoItems h 1 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
			Set ComNumeric of hoEditor to OLEexInteger
		Send Destroy to hoEditor
		Get ComAddItem of hoItems "Integer (mask, group)" to h
		Set ComCellValue of hoItems h 1 to "10002"
		Set ComFormatCell of hoItems h 1 to "value format `0||`"
		Variant voEditor1
		Get ComCellEditor of hoItems h 1 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEMaskType
			Set ComMask of hoEditor1 to ";;;float,digits=0,invalid=empty,warning=invalid character"
		Send Destroy to hoEditor1
		Get ComAddItem of hoItems "Integer (mask, no group)" to h
		Set ComCellValue of hoItems h 1 to "10002"
		Set ComFormatCell of hoItems h 1 to "value format `0|0|`"
		Variant voEditor2
		Get ComCellEditor of hoItems h 1 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEMaskType
			Set ComMask of hoEditor2 to ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
		Send Destroy to hoEditor2
		Get ComAddItem of hoItems "Float" to h
		Set ComCellValue of hoItems h 1 to "+12.34E+2"
		Variant voEditor3
		Get ComCellEditor of hoItems h 1 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComEditType of hoEditor3 to OLEEditType
			Set ComNumeric of hoEditor3 to OLEexFloat
		Send Destroy to hoEditor3
		Get ComAddItem of hoItems "Float (no signs)" to h
		Set ComCellValue of hoItems h 1 to "12.34E-2"
		Variant voEditor4
		Get ComCellEditor of hoItems h 1 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEEditType
			Set ComNumeric of hoEditor4 to (OLEexDisableSigns + OLEexFloat)
		Send Destroy to hoEditor4
		Get ComAddItem of hoItems "Float-Integer" to h
		Set ComCellValue of hoItems h 1 to "+12.34"
		Variant voEditor5
		Get ComCellEditor of hoItems h 1 to voEditor5
		Handle hoEditor5
		Get Create (RefClass(cComEditor)) to hoEditor5
		Set pvComObject of hoEditor5 to voEditor5
			Set ComEditType of hoEditor5 to OLEEditType
			Set ComNumeric of hoEditor5 to OLEexFloatInteger
		Send Destroy to hoEditor5
		Get ComAddItem of hoItems "Float-Integer (no signs)" to h
		Set ComCellValue of hoItems h 1 to "12.34"
		Variant voEditor6
		Get ComCellEditor of hoItems h 1 to voEditor6
		Handle hoEditor6
		Get Create (RefClass(cComEditor)) to hoEditor6
		Set pvComObject of hoEditor6 to voEditor6
			Set ComEditType of hoEditor6 to OLEEditType
			Set ComNumeric of hoEditor6 to (OLEexDisableSigns + OLEexFloatInteger)
		Send Destroy to hoEditor6
		Get ComAddItem of hoItems "Float (mask,group)" to h
		Set ComCellValue of hoItems h 1 to "10002.34"
		Set ComFormatCell of hoItems h 1 to "value format `2`"
		Variant voEditor7
		Get ComCellEditor of hoItems h 1 to voEditor7
		Handle hoEditor7
		Get Create (RefClass(cComEditor)) to hoEditor7
		Set pvComObject of hoEditor7 to voEditor7
			Set ComEditType of hoEditor7 to OLEMaskType
			Set ComMask of hoEditor7 to ";;;float,invalid=empty,warning=invalid character"
		Send Destroy to hoEditor7
		Get ComAddItem of hoItems "Float (mask, no group)" to h
		Set ComCellValue of hoItems h 1 to "10002.34"
		Set ComFormatCell of hoItems h 1 to "value format `2|0|`"
		Variant voEditor8
		Get ComCellEditor of hoItems h 1 to voEditor8
		Handle hoEditor8
		Get Create (RefClass(cComEditor)) to hoEditor8
		Set pvComObject of hoEditor8 to voEditor8
			Set ComEditType of hoEditor8 to OLEMaskType
			Set ComMask of hoEditor8 to ";;;float,grouping=,invalid=empty,warning=invalid character"
		Send Destroy to hoEditor8
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "HOffset" to Nothing
	Send Destroy to hoColumns
	Set ComHeaderAppearance to OLEFlat
	Set ComScrollBySingleLine to True
	Set ComDrawGridLines to OLEexRowLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexRowLines
		Set ComFirstVisibleDate of hoChart to "12/16/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternBox
				Set ComColor of hoBar to (RGB(164,164,164))
				Set ComStartColor of hoBar to (RGB(240,240,240))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 15
				Set ComDef of hoBar OLEexBarCaption to "label"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "right" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 2
		Get ComAddItem of hoItems "right - 4" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 2
		Set ComItemBar of hoItems h "" OLEexBarCaptionHOffset to -4
		Get ComAddItem of hoItems "left" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 0
		Get ComAddItem of hoItems "left + 4" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 0
		Set ComItemBar of hoItems h "" OLEexBarCaptionHOffset to 4
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Align" to Nothing
	Send Destroy to hoColumns
	Set ComHeaderAppearance to OLEFlat
	Set ComScrollBySingleLine to True
	Set ComDrawGridLines to OLEexRowLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexRowLines
		Set ComFirstVisibleDate of hoChart to "12/23/2000"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternBox
				Set ComColor of hoBar to (RGB(164,164,164))
				Set ComStartColor of hoBar to (RGB(240,240,240))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 15
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "default" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" "" "label"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 1
		Get ComAddItem of hoItems "default + 32" to h
		Send ComAddBar of hoItems h "Task" "12/22/2000" "12/27/2000" "" "label"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 33
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant i
	Get ComItemFromPoint -1 -1 c hit to i
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComItemData of hoItems i to v
	Send Destroy to hoItems
	Showln i v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemData of hoItems1 (ComAddItem(hoItems1,"method 1")) to "your extra data of method 1"
		Get ComInsertItem of hoItems1 0 "your extra data of method 2" "method 2" to Nothing
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Set ComDefaultItem of hoItems2 to (ComAddItem(hoItems2,"method 3"))
		Set ComItemData of hoItems2 0 to "your extra data of method 3"
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure

// Fired before an item is about to be expanded (collapsed).
Procedure OnComBeforeExpandItem HITEM   llItem Variant   llCancel
	Forward Send OnComBeforeExpandItem llItem llCancel
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndent to 16
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComHasLines to OLEexSolidLine
	Set ComDrawGridLines to OLEexHLines
	Set ComScrollBySingleLine to True
	Set ComFullRowSelect to OLEexColumnSel
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
			Set ComFormatColumn of hoColumn to "`<r><bgcolor 000000><fgcolor FFFFFF> ` + 1 apos `` + ` </fgcolor></bgcolor>`"
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComColumnsFormatLevel of hoChart to ",|,1:64"
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComShowCollapsedBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 128
		Set ComDrawGridLines of hoChart to OLEexHLines
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
				Set ComColor of hoBar to (RGB(0,0,0))
				Set ComStartColor of hoBar to (RGB(196,196,196))
				Set ComEndColor of hoBar to (RGB(196,196,196))
				Set ComPattern of hoBar to OLEexPatternBox
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project 1" to h
		Variant h1
		Get ComInsertItem of hoItems h "Resources" to h1
		Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/25/2006" "A" Nothing
		Send ComAddBar of hoItems h1 "Task" "9/24/2006" "9/28/2006" "B" Nothing
		Send ComAddBar of hoItems h1 "Task" "9/27/2006" "9/29/2006" "C" Nothing
		Get ComAddItem of hoItems "Project 2" to h
		Get ComInsertItem of hoItems h "Resources" to h1
		Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/25/2006" "A" Nothing
		Send ComAddBar of hoItems h1 "Task" "9/24/2006" "9/28/2006" "B" Nothing
		Send ComAddBar of hoItems h1 "Task" "9/27/2006" "9/29/2006" "C" Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComAttachTemplate "handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"
	Set ComHeaderAppearance to OLEEtched
	Set ComDrawGridLines to OLEexAllLines
	Set ComGridLineStyle to OLEexGridLinesVSolid
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Item" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComPosition of hoColumn to 0
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
			Set ComFormatColumn of hoColumn to "1 index ``"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Set ComHeaderAppearance to OLEFlat
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Type" to Nothing
	Send Destroy to hoColumns
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "Stack" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "AStack" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Variant voBars2
		Get ComBars of hoChart to voBars2
		Handle hoBars2
		Get Create (RefClass(cComBars)) to hoBars2
		Set pvComObject of hoBars2 to voBars2
			Variant voBar2
			Get ComCopy of hoBars2 "Task" "Cascade" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComOverlaidType of hoBar2 to OLEexOverlaidBarsCascade
			Send Destroy to hoBar2
		Send Destroy to hoBars2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Stack" to h
		Send ComAddBar of hoItems h "Stack" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Stack" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Stack" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Stack" "1/2/2001" "1/7/2001" "A4" Nothing
		Send ComAddBar of hoItems h "Stack" "1/8/2001" "1/12/2001" "A5" Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems "Stack-AutoArrange" to h
		Send ComAddBar of hoItems h "AStack" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "AStack" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "AStack" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "AStack" "1/2/2001" "1/7/2001" "A4" Nothing
		Send ComAddBar of hoItems h "AStack" "1/8/2001" "1/12/2001" "A5" Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems "Cascade" to h
		Send ComAddBar of hoItems h "Cascade" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Cascade" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Cascade" "1/4/2001" "1/7/2001" "A3" Nothing
		Send ComAddBar of hoItems h "Cascade" "1/2/2001" "1/7/2001" "A4" Nothing
		Send ComAddBar of hoItems h "Cascade" "1/8/2001" "1/12/2001" "A5" Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Set ComItemBar of hoItems 0 "<*>" OLEexBarCaption to "<%=%9%>"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComHTMLPicture "exclude" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnTbuHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1ATCgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA=="
	Set ComDescription OLEexFilterBarExclude to "<img>exclude</img>"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDescription OLEexFilterBarExclude to "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexAllLines
	Set ComGridLineStyle to OLEexGridLinesGeometric
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant v
			Get ComDrawGridLines to v
		Set ComDrawGridLines of hoChart to v
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant v1
			Get ComGridLineStyle to v1
		Set ComGridLineStyle of hoChart1 to v1
	Send Destroy to hoChart1
	Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Variant hChild
		Get ComInsertItem of hoItems h "Task 1" to hChild
		Set ComSelectItem of hoItems hChild to True
		Get ComInsertItem of hoItems h "Task 2" to hChild
		Set ComCellState of hoItems hChild 0 to 1
		Get ComInsertItem of hoItems h "Task 3" to hChild
		Set ComCellState of hoItems hChild 0 to 1
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 96
		Set ComFirstVisibleDate of hoChart to "1/1/2011"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComDef of hoBar OLEexBarExtraCaption to "<%=%C0%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
				Set ComDef of hoBar OLEexBarExtraCaptionHAlign to 16
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Show" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 57
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2011" "1/7/2011" Nothing Nothing
		Set ComItemBar of hoItems (ComFirstVisibleItem(hoItems)) "" OLEexBarShowExtraCaption to False
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2011" "1/8/2011" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 96
		Set ComFirstVisibleDate of hoChart to "1/1/2011"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComDef of hoBar OLEexBarCaption to "<%=%C0%>"
				Set ComDef of hoBar OLEexBarHAlignCaption to 18
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Show" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 56
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2011" "1/7/2011" Nothing Nothing
		Set ComItemBar of hoItems (ComFirstVisibleItem(hoItems)) "" OLEexBarShowCaption to False
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2011" "1/8/2011" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComSortType of hoColumn to OLEexSortByState
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Set ComCellState of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
		Set ComCellState of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortAscending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Image" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLEexSortByImage
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 3
		Get ComAddItem of hoItems Nothing to Nothing
		Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 1
		Set ComCellImage of hoItems (ComAddItem(hoItems,Nothing)) 0 to 2
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortAscending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Value" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "`<fgcolor=808080><off 4><font ;6> ` + (1 index ``)  + ` </font></off></fgcolor>` + value"
			Set ComSortType of hoColumn to (OLEexSortByValue + OLESortNumeric)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1" to Nothing
		Get ComAddItem of hoItems "10" to Nothing
		Get ComAddItem of hoItems "2" to Nothing
		Get ComAddItem of hoItems "20" to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortAscending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
			Set ComSortType of hoColumn to OLESortNumeric
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortAscending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Days" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258
			Set ComFormatColumn of hoColumn2 to "value ? value : ``"
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns "Type" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComDef of hoColumn3 OLEexCellValueToItemBarProperty to 0
			Set ComVisible of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%4 = `Milestone`" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComItalic of hoConditionalFormat to True
			Set ComApplyTo of hoConditionalFormat to OLEexFormatToItems
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2010"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
				Set ComDef of hoBar OLEexBarKeepWorkingCount to True
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"M1")) "Milestone" "9/24/2010" "9/24/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"T1")) "Task" "9/24/2010" "9/28/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"T2")) "Task" "9/27/2010" "9/28/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"M3")) "Milestone" "9/28/2010" "9/28/2010" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 543
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Days" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 258
			Set ComFormatColumn of hoColumn2 to "value ? value : ``"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%3 = 0" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComItalic of hoConditionalFormat to True
			Set ComApplyTo of hoConditionalFormat to OLEexFormatToItems
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2010"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
				Set ComDef of hoBar OLEexBarKeepWorkingCount to True
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"M1")) "Milestone" "9/24/2010" "9/24/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"T1")) "Task" "9/24/2010" "9/28/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"T2")) "Task" "9/27/2010" "9/28/2010" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"M3")) "Milestone" "9/28/2010" "9/28/2010" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Set ComDefaultItemHeight to 24
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "E1" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,0))
				Set ComStartColor of hoBar to (RGB(0,255,0))
				Set ComEndColor of hoBar to (RGB(255,255,0))
				Set ComPattern of hoBar to (OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComHeight of hoBar to 20
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Variant voBars1
		Get ComBars of hoChart3 to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "E2" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(0,0,0))
				Set ComStartColor of hoBar1 to (RGB(0,255,0))
				Set ComEndColor of hoBar1 to (RGB(255,255,0))
				Set ComPattern of hoBar1 to (OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComHeight of hoBar1 to 20
				Set ComDef of hoBar1 OLEexBarBackgroundExt to "[frame=RGB(255,0,0),framethick]"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Variant h
		Get ComAddItem of hoItems "no border" to h
		Send ComAddBar of hoItems h "E1" "1/2/2001" "1/8/2001" "" Nothing
		Get ComAddItem of hoItems "w/h boder" to h
		Send ComAddBar of hoItems h "E2" "1/2/2001" "1/8/2001" "" Nothing
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Set ComDefaultItemHeight to 24
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars
		Get ComBars of hoChart2 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "E2" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,0))
				Set ComStartColor of hoBar to (RGB(0,255,0))
				Set ComEndColor of hoBar to (RGB(255,255,0))
				Set ComPattern of hoBar to (OLEexPatternGradientVBox + OLEexPatternBox)
				Set ComHeight of hoBar to 20
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Variant h
		Get ComAddItem of hoItems "no border" to h
		Send ComAddBar of hoItems h "E2" "1/2/2001" "1/8/2001" "" Nothing
		Get ComAddItem of hoItems "w/h boder" to h
		Send ComAddBar of hoItems h "E2" "1/2/2001" "1/8/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "[frame=RGB(255,0,0),framethick]"
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "len(%C0) ? 1 pos `` : ``"
			Set ComPosition of hoColumn to 0
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABLEIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRiAUbQSKEPxLEiPmqSHIEWwtDiBZgieTpNhAMg1CTNU4RAKoYRzBKeZ7kGZIVjKMofURRDpxBBMAkB" to Nothing
	Send Destroy to hoAppearance
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDefaultItemHeight to 24
	Set ComSelBackMode to OLEexTransparent
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 196
		Variant v
			Get ComSelBackColor to v
		Set ComSelBackColor of hoChart to v
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Position" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "1 + ((1 rpos ``) contains `.`)"
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%C1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to |CI$1000000
			Set ComChartBackColor of hoConditionalFormat to (ComBackColor(hoConditionalFormat))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 1")) "Task" "1/3/2001" "1/13/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Task" "1/4/2001" "1/14/2001" Nothing Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Group 2" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 1")) "Task" "1/3/2001" "1/13/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Task" "1/4/2001" "1/14/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Frames" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/12/2001" "bar A" Nothing
		Set ComItemBar of hoItems h "bar A" OLEexBarColor to 1
		Send ComAddBar of hoItems h "Task" "1/14/2001" "1/24/2001" "bar B" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to -1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/5/2001" Nothing Nothing
		Variant h
		Get ComAddItem of hoItems "Task A" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComUnitWidth of hoChart to 18
		Set ComLevelCount of hoChart to 2
		Send ComMarkTimeZone of hoChart "zone1" "1/8/2001" "1/9/2001" 0 Nothing
		Send ComMarkTimeZone of hoChart "zone2" "1/2/2001" "1/4/2001" 0 "50"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "Task(I)" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/12/2001" "I" Nothing
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComUnitWidth of hoChart to 18
		Set ComLevelCount of hoChart to 2
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComForeColor of hoInsideZoomFormat to (RGB(255,255,255))
			Set ComBackColorChart of hoInsideZoomFormat to (RGB(0,0,1))
			Set ComBackColor of hoInsideZoomFormat to (RGB(0,0,1))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/8/2001" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "Task(I)" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/12/2001" "I" Nothing
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComUnitWidth of hoChart to 18
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "Task(D)" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/12/2001" "D" Nothing
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voNotes
		Get ComNotes of hoChart1 to voNotes
		Handle hoNotes
		Get Create (RefClass(cComNotes)) to hoNotes
		Set pvComObject of hoNotes to voNotes
			Variant voNote
			Get ComAdd of hoNotes "NoteD" h "1/8/2001" "<b><%dd%></b><br><%m%><br><%yy%>" to voNote
			Handle hoNote
			Get Create (RefClass(cComNote)) to hoNote
			Set pvComObject of hoNote to voNote
				Set ComPartFixedWidth of hoNote OLEexNoteEnd to 18
				Set ComPartShadow of hoNote OLEexNoteEnd to False
			Send Destroy to hoNote
		Send Destroy to hoNotes
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComUnitWidth of hoChart to 18
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "Task(T)" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/12/2001" "T" Nothing
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voNotes
		Get ComNotes of hoChart1 to voNotes
		Handle hoNotes
		Get Create (RefClass(cComNotes)) to hoNotes
		Set pvComObject of hoNotes to voNotes
			Variant voNote
			Get ComAdd of hoNotes "NoteTS" h "T" "" to voNote
			Handle hoNote
			Get Create (RefClass(cComNote)) to hoNote
			Set pvComObject of hoNote to voNote
				Set ComShowLink of hoNote to OLEexNoteLinkHidden
				Set ComPartText of hoNote OLEexNoteStart to "<%d%>"
				Set ComPartHOffset of hoNote OLEexNoteStart to 9
				Set ComPartFixedWidth of hoNote OLEexNoteStart to 18
			Send Destroy to hoNote
			Variant voNote1
			Get ComAdd of hoNotes "NoteTE" h "T" "" to voNote1
			Handle hoNote1
			Get Create (RefClass(cComNote)) to hoNote1
			Set pvComObject of hoNote1 to voNote1
				Set ComRelativePosition of hoNote1 to "E-1"
				Set ComShowLink of hoNote1 to OLEexNoteLinkHidden
				Set ComPartText of hoNote1 OLEexNoteStart to "<%d%>"
				Set ComPartHOffset of hoNote1 OLEexNoteStart to 9
				Set ComPartFixedWidth of hoNote1 OLEexNoteStart to 18
			Send Destroy to hoNote1
		Send Destroy to hoNotes
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure